home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / oberon.lha / Oberon / configuration / Configuration.Mod (.txt) next >
Encoding:
Oberon Text  |  1994-11-25  |  1.3 KB  |  39 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10i.Scn.Fnt
  3. StampElems
  4. Alloc
  5. 24 Nov 94
  6. Syntax10b.Scn.Fnt
  7. MODULE Configuration;    (** SHML/CN, 
  8.     IMPORT Display, Input, Viewers, Oberon, Cmd;
  9.     PROCEDURE Break(): BOOLEAN;
  10.         VAR keys: SET; x, y: INTEGER;
  11.     BEGIN
  12.         Input.Mouse(keys, x, y);
  13.         RETURN keys # {}
  14.     END Break;
  15.     PROCEDURE Init*;    (* Do initialization script *)
  16.         VAR res: INTEGER;
  17.     BEGIN
  18.         Display.SetColor(Display.black,200,200,200);
  19.         Display.SetColor(Display.white,0,0,0);
  20.         IF Break() THEN RETURN END;
  21.         Cmd.Call("StatusViewer.Open", "", res);
  22.         Cmd.Mark(Cmd.STrack,Cmd.Top-Viewers.minH);
  23.         Cmd.Call("Log.Open", "", res);
  24.         Cmd.Call("XE.SysOpen", "System", res);
  25.         Cmd.Call("XE.SysOpen", "My", res);
  26.         Cmd.Call("Installer.Start", "", res);
  27.         Cmd.Call("Doc.Install", "XE.Open *", res);
  28.         Cmd.Call("Doc.Install", "XE.Open Mod", res);
  29.         Cmd.Call("Doc.Install", "XE.Open Text", res);
  30.         Cmd.Call("Doc.Install", "XE.SysOpen Tool", res);
  31.         Cmd.Call("Doc.Install", "Draw.Open Graph", res);
  32.         Cmd.Call("Doc.Install", "Browser.ShowDef Sym", res);
  33.         Cmd.Call("Doc.Install", "Paint.Open Pict", res);
  34.         Cmd.Call("Doc.Install", "Decoder.Decode Obj", res);
  35.     END Init;
  36. BEGIN Init
  37. END Configuration.
  38. Cmd.Pick *
  39.